home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 April / 64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64 / sortieren 2 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  546b  |  32 lines
  1. 10 rem****** listing 4/2 **********
  2. 12 :
  3. 20 z=0
  4. 25 read plz$,st$
  5. 30 if plz$="@" then 45
  6. 35 z=z+1
  7. 40 goto 25
  8. 45 dim plz$(z),st$(z)
  9. 50 restore
  10. 55 for i=1 to z
  11. 60 read plz$(i),st$(i)
  12. 65 next i
  13. 67 :
  14. 70 t=0
  15. 75 input "name der stadt";nst$
  16. 80 for l=len(nst$) to 2 step-1
  17. 83 :
  18. 85 for k=1 to z
  19. 90 if left$(nst$,l) = left$(st$(k),l) then print plz$(k),st$(k):t=1
  20. 95 next k
  21. 98 :
  22. 100 if t=1 then 70
  23. 105 next l
  24. 110 print"stadt nicht in der liste"
  25. 998 :
  26. 999 :
  27. 1000 data 8470,nabburg,5441,nachtsheim
  28. 1005 data 6509,nack,6506,nackenheim
  29. 1010 data 8590,nagel,7270,nagold,2061,nahe
  30. 1015 data 2121,nahrendorf,8674,naila
  31. 2000 data @,@
  32.